home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / sharutil.2 / sharutil / sharutils-4.2 / contrib / uuencode.pl < prev   
Encoding:
Text File  |  1995-03-08  |  259 b   |  11 lines

  1. # uuencode in Perl - non tested.
  2. # Copyright (C) 1995 Free Software Foundation, Inc.
  3. # Franτois Pinard <pinard@iro.umontreal.ca>, 1995.
  4.  
  5. print "begin 644 $ARGV[0]\n";
  6. print pack ("u", $bloc) while read (STDIN, $bloc, 45);
  7. print "`\n";
  8. print "end\n";
  9.  
  10. exit 0;
  11.